TITLE	CMUALC
	ENTRY	CMUALC
	DSKO=12
ERR:	HRRZ	ENT+3
	CAIE	17
	JRST	[
	OUTSTR	[ASCIZ/
?CAN'T WRITE MUSIC.MUS -- ERROR CODE /]
	IDIVI	12
	ADDI	60
	OUTCHR
	ADDI	1,60
	OUTCHR	1
	OUTSTR	[ASCIZ/?
/]
	EXIT]
	OUTSTR	[ASCIZ/
?MUSIC.MUS WILL BE FRAGMENTED  --  CONTINUING?
/]
	JRST	CONT
ENT:	BLOCK	12
LK1:	BLOCK	4
CMUALC:	0
	MOVEI	1
	HPQ
	JFCL
	MOVE	[SIXBIT/MUSIC/]
	MOVEM	LK1
	MOVE	[SIXBIT/MUS/]
	MOVEM	LK1+1
	SETZM	LK1+2
	SETZM	LK1+3
	LOOKUP	DSKO,LK1
	JRST	NODEL
	SETZM	LK1
	RENAME	DSKO,LK1
	JRST	[
	OUTSTR	[ASCIZ/
?PROTECTION FAILURE ON MUSIC.MUS?
/]
	EXIT]
NODEL:	MOVEI	11
	MOVEM	ENT
	SETZM	ENT+1
	MOVE	[SIXBIT/MUSIC/]
	MOVEM	ENT+2
	MOVE	[SIXBIT/MUS/]
	MOVEM	ENT+3
	SETZM	ENT+4
	SETZM	ENT+5
	SETZM	ENT+6
	SETZM	ENT+7
	SETZM	ENT+10
	MOVEI	↑D1000
	MOVEM	ENT+11
	ENTER	DSKO,ENT
	JRST	ERR
CONT:	MOVEI
	HPQ
	JFCL
	JRA	16,(16)
	END